﻿Imports Oracle.DataAccess.Client
Imports System.Data.OleDb

Partial Class InfoDominio
    Inherits System.Web.UI.Page
    Private x As Integer
    Private Cmd As OracleCommand
    Private dt As Data.DataTable
    Private Cnx As OracleConnection
    Private oradb As String = "Data Source=XE;User Id=SIRA;Password=SIRA123;"
    Private Sql As String
    Private Aux As String
    Private dr As OracleDataReader

    Protected Sub LiberarRecursos()
        Cnx.Close()
        dr.Dispose()
        Cmd.Dispose()
        Cnx.Dispose()
    End Sub

    Protected Sub btnAceptar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        txtPatente.Text = txtPatente.Text.ToUpper
        MostrarRegistroPatente()
    End Sub
    Protected Sub btnAceptarEdicion_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAceptarEdicion.Click
        PanelDatos.Visible = False
        txtPatente.Text = ""
    End Sub

    Protected Sub MostrarRegistroPatente()
        Cnx = New OracleConnection(oradb)
        Sql = "SELECT Denuncias.IdDenuncia, Denuncias.IdComisaria_Alta, ComiAlta.Descripcion ComiAltaDesc, " & _
              "Denuncias.IdNodo_Alta, NodoAlta.Descripcion NodoAltaDesc, " & _
              "Denuncias.IdUsuario_Alta, UserAlta.Nombre UserAltaNombre, " & _
              "Denuncias.IdUsuario_Mod, UserMod.Nombre UserModNombre, " & _
              "Denuncias.Patente, Denuncias.Fecha_Alta, " & _
              "Denuncias.IdComisaria_Mod, ComiMod.Descripcion ComiModDesc, " & _
              "Denuncias.IdNodo_Mod, NodoMod.Descripcion NodoModDesc, " & _
              "Denuncias.Fecha_Mod, Denuncias.Captura, Denuncias.Recuperado, Denuncias.Observaciones " & _
              "FROM Denuncias, Comisarias ComiAlta, Comisarias ComiMod ,Tbl_Nodos NodoAlta, Tbl_Nodos NodoMod, Usuarios UserAlta, Usuarios UserMod " & _
              "WHERE (NodoAlta.IdNodo=ComiAlta.IdNodo) " & _
              "AND ((ComiAlta.IdNodo=Denuncias.IdNodo_Alta) AND (ComiAlta.IdComisaria=Denuncias.IdComisaria_Alta)) " & _
              "AND (Denuncias.IdUsuario_Alta=UserAlta.IdUsuario) " & _
              "AND ((ComiAlta.IdNodo=Denuncias.IdNodo_Alta) And (ComiAlta.IdComisaria=Denuncias.IdComisaria_Alta)) " & _
              "AND (Denuncias.IdUsuario_Mod=UserMod.IdUsuario) " & _
              "AND ((ComiMod.IdNodo=Denuncias.IdNodo_Mod) And (ComiMod.IdComisaria=Denuncias.IdComisaria_Mod)) " & _
              "AND (NodoMod.IdNodo=ComiMod.IdNodo) " & _
              "AND ((ComiMod.IdNodo=Denuncias.IdNodo_Mod) AND (ComiMod.IdComisaria=Denuncias.IdComisaria_Mod)) " & _
              "AND Patente = '" & txtPatente.Text & "'"
        Try
            Cnx.Open()
            Cmd = New OracleCommand(Sql, Cnx)
            Cmd.CommandType = Data.CommandType.Text
            dr = Cmd.ExecuteReader()
            If dr.Read() Then
                lblPatente.Text = dr.Item("Patente")
                lblIdComisaria_Alta.Text = dr.Item("IdComisaria_Alta")
                lblComisaria_Alta.Text = dr.Item("ComiAltaDesc")
                lblIdNodo_Alta.Text = dr.Item("IdNodo_Alta")
                lblNodo_Alta.Text = dr.Item("NodoAltaDesc")
                lblIdUsuario_Alta.Text = dr.Item("IdUsuario_Alta")
                lblUsuario_Alta.Text = dr.Item("UserAltaNombre")
                lblFecha_Alta.Text = dr.Item("Fecha_Alta")
                lblIdComisaria_Mod.Text = dr.Item("IdComisaria_Mod")
                lblComisaria_Mod.Text = dr.Item("ComiModDesc")
                lblIdNodo_Mod.Text = dr.Item("IdNodo_Mod")
                lblNodo_Mod.Text = dr.Item("NodoModDesc")
                lblIdUsuario_Mod.Text = dr.Item("IdUsuario_Mod")
                lblUsuario_Mod.Text = dr.Item("UserModNombre")
                lblFecha_Mod.Text = dr.Item("Fecha_Mod")
                lblCaptura.Text = dr.Item("Captura")
                lblRecuperado.Text = dr.Item("Recuperado")
                lblObservaciones.Text = dr.Item("Observaciones")
            Else
                labelMessage.Text = "No existen datos de la patente : " & txtPatente.Text
                PanelDatos.Visible = False
                LiberarRecursos()
                Exit Sub
            End If
        Catch ex As Exception
            MsgBox(ex.Message.ToString())
        Finally
        End Try
        PanelDatos.Visible = True
        labelMessage.Text = ""
        LiberarRecursos()
    End Sub


End Class
